<!--#include file="Config.asp" -->
<!--#include file="HeadTop.asp"-->

<%

userid=session("AnyPIM_userID")
ContactID=trim(request("id"))
if trim(ContactID)="" then
response.write "<script laguage=javascript>alert('无此记录！');</script>"
response.end
end if

set rs=server.createobject("adodb.recordset")
sql="select * from Contact_info where id="&ContactID
rs.open sql,conn,3,3
if rs.eof or rs.bof then
response.write "<script laguage=javascript>alert('无此记录！');</script>"
response.end
else
ContactID=int(rs("ID"))
Name=trim(rs("Name"))
birthMon=int(rs("birthMon"))
birthDay=int(rs("birthDay"))
Sex=int(rs("Sex"))
GID=rs("GID")
Remark=trim(rs("Remark"))
end if
rs.close
%>


<table class="table table-condensed table-bordered">
<TR bgcolor='#ffffff'>
<TD>注意：有“<FONT color="#ff0000">*</FONT>”的选项必须填写！！！</TD>
</TR>
</TABLE>

<table class="table table-condensed table-bordered">
<TR bgcolor='#ccff99'>
<TD>基本信息：</TD>
</TR>
</TABLE>

<table class="table table-condensed table-bordered">
<FORM action='ContactSave.asp?ActionType=SaveModContact&ContactID=<%=ContactID%>' method='post'>
<TR bgcolor='#ffffff'>
<TD width='90'><FONT color="#ff0000">*</FONT> 姓 名：</TD>
<TD>
<INPUT name=name value='<%=name%>' size='60'>
</TD>
</TR>
<TR bgcolor='#ffffff'>
<TD>西历生日：</TD>
<TD>
<select name="birthMon">
<%For mon=1 To 12%>
<option value="<%=mon%>" <%If mon=birthMon then%>selected<%End if%>><%=mon%>月</option>
<%next%>
</select>
<select name="birthDay">
<%For d=1 To 31%>
<option value="<%=d%>" <%If d=birthday then%>selected<%End if%>><%=d%>日</option>
<%next%>
</select>
</TD>
</TR>
<TR bgcolor='#ffffff'>

<TD>性别：</TD>
<TD><select name="Sex">
	<option value="1" <%If Sex=1 Then %>selected<%End if%>>男</option>
	<option value="0" <%If Sex=0 Then %>selected<%End if%>>女</option>
</select>
</TD>
</TR>
<TR bgcolor='#ffffff'>
<TD vAlign=top>
添加到分组:</TD>
<TD>
<SELECT name='gid'>
<%
sql="select * from Contact_Group where userid='"&userid&"' "
rs.open sql,conn,1,1
do while not rs.eof
%>
<OPTION value=<%=int(rs("gid"))%> <%if int(info(5))=rs("gid") then response.write " selected "%> ><%=rs("agroup")%></OPTION>
<%
rs.movenext
loop
rs.close
%>

</SELECT>
</TD>
</TR>
</TABLE>
<!--  -->
<table class="table table-condensed table-bordered">
<TR bgcolor='#ffffff'>
<TD width='90'>备 注：</TD>
<TD>
<TEXTAREA cols=150 name=remark rows=4 wrap=virtula><%=Remark%></TEXTAREA>
</TD>
</TR>
</TABLE>
<!--  -->
<table class="table table-condensed table-bordered">
<TR bgcolor='#ccff99'>
<TD>
<input name='sm' type='submit' value='更新通讯录'>
</TD>
</TR>
</Form>
</TABLE>


<!--#include file=Foot.asp -->
